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IOFMAG 


DECUS Program Library Write-up 


DECUS NO. 8-362 


Four subroutines are provided which access DECtapes on TC-01 
drives. In contrast to the routines provided by DEC, these 
routines do not use the interrupt. If the user does not require 
the use of the interrupt while doing DECtape I/O, the use of 
these routines has several advantages: 

1) They occupy less storage (106 [10] vs. 128 [10] words). 

2) The user need not establish page 0 linkages to service 

the interrupt. 

3) Other devices (such as the teletype) will not interrupt 

the DECtape I/O. When, for instance, transferring 
from paper tape to DECtape, one need not buffer those 
characters which would have been read during DECtape 
output. 

The subroutine linkages are as follows: 

JMS DTREA/read, ac must = 0 
xxxx /1st transfer location 

U000 /u = unit # 

-n /n = # of blocks to be transferred 

b /b = 1st block to be transferred 

xxxx /instruction executed when read completed 

JMS DTWRI/write, ac must = 0 
xxxx /1st transfer location 

u000 /u = unit # 

-n /n = # of blocks to be transferred 

b /b = 1st block to be transferred 

xxxx /instruction executed when write completed 

JMS DTSAS/search and stop, ac must = block # wanted 
U000 /u = unit # 

xxxx /instruction executed when search and stop completed 

JMS DTSNS/search and don't stop, ac must = 0 
DTBLOC must be put = block # wanted 
DTUNIT must be put = U000 

note: the other subs will set DTBLOC & DTUNIT. 

If a tape error occurs, the sub will go to the address specified 
in LDTERR which is initially 7600. 

The block length is specified in DT7600, which is initially 
7600 (-200). 

The DTSNS routine differs from DTSAS only in a) linkages and 
b) the tape is in motion when the subroutine is completed. 
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/ 7525 

7 006 

RTL 

*7 5 26 

7200 

CLA 

7527 

1 367 

TAD DTBIO 

7530 

7041 

CIA 

7531 

1 370 

TAD DTBLOC 

7532 

7450 

SNA 

7533 

5350 

JMP DTSNS5 

7534 

7041 

CIA /IF FORE & < OR REV & > OR REV & WANTtD 

7535 

7420 

SNL 

7536 

7 001 

I AC 

7537 

7620 

SNL CLA 

7540 

1 364 

DTSNS2, TAD DT0400 /SET TO TURN AROUND 

7541 

6764 

DTXA /IF SET, TURN) & CLEAR FLAGS 

7542 

5312 

JMP DTSNS 1 /GO TO DTSNS1 

7543 

1 36 3 

DTSNS3, TAD DT0200 /SET TO TURN AROUND IN END : 

7544 

5340 

JMP DTSNS2 /GO TO DTSNS2 

A7545 

1 37 3 

DTSNS4, TAD DTUNI'T /STOP UNIT 

*546 

6766 

DTLA 

7547 

5776 

JMP I LDTERR /GO TO DTERR 

7550 

6764 

0 T SNS5, DTXA /CLEAR FLAGS 

7551 

7620 

SNL CLA /IF REVERSE, GO TO DTSNS1 

7552 

5312 

JMP DTSNS1 

7 55 3 

5704 

JMP I DTSNS /END OF SUB 

7554 

0000 

DTWRI, 0 /WRITE SUB 

7555 

4 254 

JMS DTGET /GET ARGUMENTS 

7556 

4 304 

JMS DTSNS /SEARCH & DON'T STOP 

7557 

1 362 

TAD DT0050 /SET TO WRITE 

7560 

5234 

JMP DTGO /GO TO OTGO 

7561 

0030 

DT0030, 30 

7562 

0050 

DT0050, 50 

7563 

0200 

D TO 200, 200 

7564 

0400 

DT 0400, 400 

7565 

061 0 

DT0610, 610 

7566 

7600 

DT7600, 7600 

7567 

0000 

DTBLO, 0 

07570 

0000 

DTBLOC, 0 

7 571 

0000 

DTLOC, 0 

7 57 2 

0000 

DTMNBL, 0 

7573 

0000 

DTUNIT, 0 

7574 

7567 

LDTBLO, DTBLO 

7575 

7754 

LDTC, 7754 

7576 

7600 

LDTERR,7600 

7577 

7755 

LDTL, 7755 
$ 



*7426 /1OFMAG 13-50 . , 

7426 

0000 

DTREA, 0 /READ SUB 

7427 

1 226 

TAD DTREA /SET SUB END 

7 4-30 

3354 

DCA DTWRI 

7431 

4254 

JMS DTGET /GET ARGUMENTS 

74 32 

4 304 

•JMS DTSNS /SEARCH & DON'T STOP, 

74 33 

1 361 

TAD DT0030 /SET TO READ 

7 4 34 

6764 

DTGO, DTXA /SET FOR READ OR WRITE 

7435 

1 37 1 

TAD DTLOC 

7436 

3777 

DCA I LDTL 

7 4 37 

6764 

DTG01, DTXA /START 128 TRANSFERS & CLEAR FLAGS 

7440 

1 366 

TAD DT7600 

7 441 

3775 

DCA I LDTC 

744 2 

677 1 

DTSF /WAIT FOR FLAG 


ZONE 


SKI 


2 
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,744 3 

5242 

JMP .- 1 

7444 

6772 

DTRB /IF ERROR, GO TO DTSN34 

7445 

7710 

SPA CIA 

7446 

5 345 

JMP DTSNS4 

7447 

2 37 2 

ISZ DTMNBL /IF MORE BLOCKS, GO TO DTG01 

7450 

5237 

•JIMP DTG01 

7 451 

1 373 

TAD DTUNIT /STOP UNIT 

7452 

6 7 6 6 

DTLA 

7453 

5754 

JMP I DTWRI /END OF SUB 

7454 

0000 

PTGET, 0 /GET ARGUMENTS SUB 

7455 

7040 

CMA /GET TRANSFER LOC 

7456 

4267 

JMS DTGET1 

7457 

337 1 

DCA DTLOC 

7460 

4267 

JMS DTGET1 /GET UNIT # 

7 461 

337 3 

DCA DTUNIT 

A7462 

4267 

JMS DTGET1 /GET - # OF BLOCKS 

“7463 

337 2 

DCA DTMNBL 

7464 

4267 

JMS DTGET1 /GET BLOCK # 

7465 

3370 

DCA DTBLO.C 

7466 

5654 

JMP I DTGET 

7467 

0000 

DTGET1, 0 /GET NEXT ARGUMENT SUB 

7470 

1754 

TAD I DTWRI 

7 47 1 

2354 

ISZ DTWRI 

7472 

5667 

JMP I DTGET1 

7 47 3 

0000 

DTSAS. 0 /SEARCH & STOP SUB 

7 47 4 

3370 

DCA DTBLOC /PUT DTBLOC = BLOCK # 

7475 

167 3 

TAD I DTSAS /GET UNIT # 

7476 

227 3 

ISZ DTSAS 

7477 

3373 

DCA DTUNIT 

7500 

4304 

JMS DTSNS /SEARCH & DON'T STOP 

7 501 

1 37 3 

TAD DTUNIT ./STOP TAPE 

7502 

6 766 

DTLA 

750 3 

5673 

JMP I DTSAS /END OF SUB 

7504 

0000 

DTSNS, 0 /SEARCH & DON'T STOP SUB 

^7505 

1 374 

TAD LDTBLO /START NORMAL REV SEARCH 

7506 

3777 

DCA I LDTL 

7507 

137 3 

TAD DTUNIT 

7510 

1 365 

TAD DT0610 

7511 

6766 

DTLA 

7512 

6771 

DTSNS1, DTSF /WAIT FOR FLAG 

7513 

5312 

JMP . - 1 

7514 

677 2 

DTRB /IF IN END ZONE, GO TO DTSNS 3 

7515 

7006 

RTL 

7 516 

7710 

SPA CLA 

7517 

534 3 

JMP DTSNS 3 

7520 

6772 

DTRB /IF ERROR, GO TO DTSNS 4 

7 5 21 

7710 

SPA CLA 

7522 

5345 

'JMP DTSNS4 

7523 

6761 

DTRA /IF BLOCK FOUND, GO TO DTSNS5 

7524 

7006 

RTL 


3 












